<%@ Language=VBScript %>
<%
	Response.ContentType="text/xml"
	set objXMLParser =Server.CreateObject("Microsoft.XMLDOM")
	objXMLParser.load(Request)
	'objXMLParser.loadXML("<ROOT><UserName>6</UserName><PWD>61e2</PWD></ROOT>")
	Set node = objXMLParser.getElementsByTagName("UserName")(0)
	sName=node.text
	set node=nothing
	Set node = objXMLParser.getElementsByTagName("PWD")(0)
	sPwd=node.text
	set node=nothing
	set objXMLParser=nothing
	
	dim obj
	set obj=server.CreateObject("mis_database.database")
	sQuery="select * from users where userId='" & sName & "' and userPassword='" & sPwd & "'"
	if obj.CheckEmpty(sQuery,"GF") then
		r="false"
	else
		r="true"
	end if
	r="<ROOT><Result>" & r & "</Result></ROOT>"
	Response.Write r 
	set obj=nothing
%>